home *** CD-ROM | disk | FTP | other *** search
/ Alles Voor Internet / Tout Pour Internet / alles voor internet.iso / MacInternet™ / Mosaic / MacHTTP / MacHTTP 1.3 / MacHTTP Software / Scripts / map.script next >
Encoding:
Text File  |  1994-05-01  |  867 b   |  19 lines  |  [TEXT/ToyS]
  1. set crlf to (ASCII character 13) & (ASCII character 10)
  2. set http_10_header to "HTTP/1.0 200 OK" & crlf & "Server: MacHTTP" & crlf & ¬
  3.     "MIME-Version: 1.0" & crlf & "Content-type: text/html" & crlf & crlf
  4.  
  5. if http_search_args = "" then
  6.     return http_10_header & "<title>Map Test</title><isindex><A HREF=\"map.script\">" & ¬
  7.         "<IMG SRC=\"/Documentation/MacHTTP.gif\" ismap></A><P>Click on the tiny WWW document in the icon...<P>"
  8. else
  9.     set comma to offset of "," in http_search_args
  10.     set theLast to count http_search_args
  11.     set x to (text 1 thru (comma - 1) of http_search_args) + 0
  12.     set y to (text (comma + 1) thru theLast of http_search_args) + 0
  13. end if
  14. if x < 16 and y < 16 then
  15.     return http_10_header & "<title>Got Me</title> <h1>Got Me!</h1> x=" & x & " y=" & y
  16. else
  17.     return http_10_header & "<title>Missed Me</title> <h1>Missed Me!</h1> x=" & x & " y=" & y
  18. end if
  19.